home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_93051.txt < prev    next >
Text File  |  1990-08-14  |  622b  |  28 lines
  1. -- background: 93051 from stack: in
  2. -- bmap block id: 64613
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Comment Editor
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   installMenuBar 1040,1041,1042
  9. end openBackground
  10.  
  11. on closeBackground
  12.   restoreMenuBar
  13. end closeBackground
  14.  
  15. on doMenu menuItem
  16.   lock screen
  17.   if menuItem contains "About" then
  18.     go to card short name of this background of background "About"
  19.     unlock screen with zoom close
  20.   else if menuItem is "Home" then
  21.     go home
  22.   else if menuItem contains "Quit" then
  23.     go to card "Mac School¬Æ Shell"
  24.     unlock screen with zoom close
  25.   end if
  26. end doMenu
  27.  
  28.